home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / recent / mcf4amrc.lha / MCF4AmIRC / Rexx / MCF_FLIST.AMIRX < prev    next >
Text File  |  1996-09-17  |  607b  |  10 lines
  1. /* MCF_FLIST.AMIRX
  2. // $VER: MCF_FLIST.AMIRX 4.1 (29.07.96)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:        It will be used by MCF.AMIRX.
  9. */
  10. ;parse arg MCFenv auth Rnick junk;address value(MCFenv);xl=pos(".",MCFenv);Client=substr(MCFenv,xl+1);FSC="FSERV."||Client;Flag=getclip(FSC);if Flag="N" then;do;"RAW PRIVMSG "Rnick" :The File Server is not Available at this time.";exit;end;"say /DCC SEND" Rnick "MCF:MCF.FList";exit